home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 November & December / Amiga-CD 1997 #11-12.iso / aminet / greatkartei / steuerung < prev   
Encoding:
AmigaDOS Script File  |  1978-01-04  |  3.5 KB  |  157 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. if "[param]" EQ "start"
  20.     set vassign 1
  21.     set vstart 1
  22.     set vunassign 1
  23. endif
  24. if "[param]" EQ "install"
  25.     set vinstall 1
  26. endif
  27. set binfo        1
  28. set bcopy        1
  29. set bassign      1
  30. set bunassign    1
  31. set bstart       1
  32. set binstall     1
  33.  
  34.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  35.     set nummer 0
  36.     if $binfo EQ 1
  37.          echo >>t:tmpsteuerung " Info" NOLINE
  38.          set nummer `eval $nummer + 1`
  39.          set ninfo $nummer
  40.     endif
  41.     if $bcopy EQ 1
  42.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  43.          set nummer `eval $nummer + 1`
  44.          set ncopy $nummer
  45.     endif
  46.     if $bassign EQ 1
  47.          echo >>t:tmpsteuerung " Assign" NOLINE
  48.          set nummer `eval $nummer + 1`
  49.          set nassign $nummer
  50.     endif
  51.     if $bunassign EQ 1
  52.          echo >>t:tmpsteuerung " Unassign" NOLINE
  53.          set nummer `eval $nummer + 1`
  54.          set nunassign $nummer
  55.     endif
  56.     if $bstart EQ 1
  57.          echo >>t:tmpsteuerung " Start" NOLINE
  58.          set nummer `eval $nummer + 1`
  59.          set nstart $nummer
  60.     endif
  61.     if $binstall EQ 1
  62.          echo >>t:tmpsteuerung " Installieren" NOLINE
  63.          set nummer `eval $nummer + 1`
  64.          set ninstall $nummer
  65.     endif
  66.     if "[param]" EQ ""
  67.         echo >>t:tmpsteuerung " Ende" NOLINE
  68.         execute >nil: t:tmpsteuerung
  69.         delete >nil: t:tmpsteuerung
  70.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  71.         if $reqerg[$$] EQ 0
  72.             skip Ende
  73.         endif
  74.     endif
  75.     if $reqerg[$$] EQ $ninfo
  76.         set vinfo 1
  77.     endif
  78.     if $reqerg[$$] EQ $ncopy
  79.         set vcopy 1
  80.     endif
  81.     if $reqerg[$$] EQ $nassign
  82.         set vassign 1
  83.     endif
  84.     if $reqerg[$$] EQ $nunassign
  85.         set vunassign 1
  86.     endif
  87.     if $reqerg[$$] EQ $nstart
  88.         set vassign 1
  89.         set vstart 1
  90.         set vunassign 1
  91.     endif
  92.     if $reqerg[$$] EQ $ninstall
  93.         set vinstall 1
  94.     endif
  95. endif
  96.  
  97. if $vinfo EQ 1
  98. ;>>>>>>>> Hier Infotext eintragen
  99.     :c/Metatool :Aminet/GreatKartei/Anleitung.guide FT=GUIDE
  100. endif
  101. if $vassign EQ 1
  102. ;>>>>>>>> Hier steht das Assign
  103.     Assign >nil: gkartei: :Aminet/GreatKartei/
  104.     Assign >nil: fonts: gkartei:fonts add
  105.     if $vstart NOT EQ 1
  106.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  107.     endif
  108. endif
  109. if $vstart EQ 1
  110. ;>>>>>>>> Hier steht das Startprogramm
  111.     cd :Aminet/GreatKartei/
  112.     GreatKartei
  113. endif
  114. if $vunassign EQ 1
  115. ;>>>>>>>> Hier steht das Unassign
  116.     Assign >nil: fonts: gkartei:fonts remove
  117.     Assign >nil: gkartei: remove
  118.     if $vstart NOT EQ 1
  119.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  120.     endif
  121. endif
  122. if $vcopy EQ 1
  123.     execute :c/Verzeichniskopieren ":Aminet/GreatKartei/" "GreatKartei" 516096
  124. endif
  125. if $vinstall EQ 1
  126. ;>>>>>>>> Hier Install-Skript eintragen
  127.     assign l: :l add
  128.     cd >nil: :Aminet/GreatKartei/
  129.     :c/WBstarter >nil: :Aminet/GreatKartei/Install
  130.     assign l: :l remove
  131.     skip Ende
  132. endif
  133.  
  134. unset binfo
  135. unset vinfo
  136. unset ninfo
  137. unset bassign
  138. unset bunassign
  139. unset vassign
  140. unset vunassign
  141. unset nassign
  142. unset nunassign
  143. unset bstart
  144. unset vstart
  145. unset nstart
  146. unset binstall
  147. unset vinstall
  148. unset ninstall
  149. unset bcopy
  150. unset vcopy
  151. unset ncopy
  152. if "[param]" EQ ""
  153.     execute Steuerung
  154. endif
  155. LAB Ende
  156. unsetenv reqerg[$$]
  157.